home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / clarion / gauge / gauge.z / DDIALOG1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-16  |  2.0 KB  |  90 lines
  1. unit DDialog1;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls, Spin, Mask;
  7.  
  8. type
  9.   TPersonalInfo = class(TForm)
  10.     OKButton: TButton;
  11.     CancelButton: TButton;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Label4: TLabel;
  16.     Label5: TLabel;
  17.     Label6: TLabel;
  18.     Label7: TLabel;
  19.     GroupBox2: TGroupBox;
  20.     RadioGroup1: TRadioGroup;
  21.     RadioButton1: TRadioButton;
  22.     RadioButton2: TRadioButton;
  23.     RadioButton3: TRadioButton;
  24.     CheckBox1: TCheckBox;
  25.     CheckBox2: TCheckBox;
  26.     CheckBox3: TCheckBox;
  27.     Edit2: TEdit;
  28.     Edit3: TEdit;
  29.     Edit4: TEdit;
  30.     Edit5: TEdit;
  31.     Edit1: TEdit;
  32.     Label8: TLabel;
  33.     Label9: TLabel;
  34.     SpinEdit1: TSpinEdit;
  35.     ComboBox1: TComboBox;
  36.     MaskEdit1: TMaskEdit;
  37.     MaskEdit2: TMaskEdit;
  38.     procedure CancelClick(Sender: TObject);
  39.     procedure PaintForm(Sender: TObject);
  40.     procedure Edit2Enter(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. var
  48.   PersonalInfo: TPersonalInfo;
  49.   WindowHandle: LongInt;
  50.  
  51. implementation
  52.  
  53. {$R *.DFM}
  54.  
  55. procedure TPersonalInfo.CancelClick(Sender: TObject);
  56. begin
  57.   PersonalInfo.Close;
  58. end;
  59.  
  60. procedure TPersonalInfo.PaintForm(Sender: TObject);
  61. begin
  62.   PersonalInfo.Update;
  63.   Edit2.SetFocus;
  64. end;
  65.  
  66. procedure TPersonalInfo.Edit2Enter(Sender: TObject);
  67. begin
  68.   Edit1.Text := 'John Smith';
  69.   Edit2.Text := '1234 Main Street';
  70.   Edit3.Text := 'Anywhere';
  71.   Edit4.Text := 'USA';
  72.   Edit5.Text := '10000';
  73.   MaskEdit1.Text := '4443456789';
  74.   MaskEdit2.Text := '4443455678';
  75.   ComboBox1.Items.Add('Single');
  76.   ComboBox1.Items.Add('Married');
  77.   ComboBox1.Items.Add('Divorced');
  78.   ComboBox1.Items.Add('Widowed');
  79.   ComboBox1.Text := 'Single';
  80.   SpinEdit1.Value := 0;
  81.   RadioButton1.Checked := True;
  82.   CheckBox1.Checked := True;
  83.   CheckBox2.Checked := True;
  84.   CheckBox3.Checked := True;
  85.   Edit1.SetFocus;
  86.   CancelButton.Click;
  87. end;
  88.  
  89. end.
  90.